"The letter A";
call charbegin('101,13,2.sc+1.5.mi,2.sc,rh,0,0);
hpen;
lft0x1=round(1.5u+s.nrand); bot0y1=round s.nrand;
rt9x4=round(r-1.5u+s.nrand); bot9y4=round s.nrand;
x3-x1=x4-x2+s.nrand;
rt9x2=rt0x3;
top0y3=top9y2=h+s.nrand+2extra;
w9 draw 2..4; % right diagonal stroke
y5=e+s.nrand; y6=e+s.nrand;
x5-1=(y5-y1)/(y3-y1)[x1,x3];
x6+1=(y6-y4)/(y2-y4)[x4,x2];
w0 draw 5..6; % bar line
lers; w9 draw 3..5; % erase excess at left
hpen; w0 draw 3..1; % left diagonal stroke
if ucs>0: lft0x7=lft0x1-.5ucs.u-eps; rt0x8=rt0x1+ucs.u+eps;
	lft0x9=lft9x4-ucs.u-eps; rt0x10=rt9x4+.5ucs.u+eps;
	y7=y1+.2s.nrand; y8=y1+.2s.nrand;
	y9=y4+.2s.nrand; y10=y4+.2s.nrand;
	w0 draw 7..8; draw 9..10; % serifs
fi.